home *** CD-ROM | disk | FTP | other *** search
/ CICA 1993 April / CICA MS Windows - April 1993.iso / unzipped / programr / vbasic / hugary / hugearr.bas next >
BASIC Source File  |  1992-03-11  |  2KB  |  27 lines
  1. ' The original set of definitions.
  2.  Global Const HA_OK              = 0
  3.  Global Const HA_OUTOFMEMORY    = -1
  4.  Global Const HA_TOMANYARRAYS   = -2
  5.  Global Const HA_BADELEMENTSIZE = -3  ' no longer possible; left for backward compatibility.
  6.  Global Const HA_SUBSCRIPT      = -4
  7.  Global Const HA_BADARRAY       = -5
  8.  Global Const HA_FILEOPENERROR  = -7
  9.  Global Const HA_FILEWRITEERROR = -8
  10.  Global Const HA_FILEREADERROR  = -9
  11.  Declare Function HugeDim% Lib "hugearr.dll" (ByVal recsize%, ByVal limit&)
  12.  Declare Function HugeRedim% Lib "hugearr.dll" (ByVal hArray%, ByVal limit&)
  13.  Declare Function GetHugeEl% Lib "hugearr.dll" (ByVal Index%, ByVal el&, buffer As Any)
  14.  Declare Function GetHugeNEl% Lib "hugearr.dll" (ByVal Index%, ByVal el&, ByVal nelem%, buffer As Any)
  15.  Declare Function SetHugeEl% Lib "hugearr.dll" (ByVal Index%, ByVal el&, buffer As Any)
  16.  Declare Function SetHugeNEl% Lib "hugearr.dll" (ByVal Index%, ByVal el&, ByVal nelem%, buffer As Any)
  17.  Declare Function HugeErase% Lib "hugearr.dll" (ByVal hArray%)
  18.  Declare Function NumHugeArrays% Lib "hugearr.dll" ()
  19.  Declare Function HugeUbound& Lib "hugearr.dll" (ByVal hArray%)
  20.  Declare Function HugeInt% Lib "hugearr.dll" (ByVal hArray%, ByVal el&)
  21.  Declare Function HugeLong& Lib "hugearr.dll" (ByVal hArray%, ByVal el&)
  22.  Declare Function HugeSingle! Lib "hugearr.dll" (ByVal hArray%, ByVal el&)
  23.  Declare Function HugeDouble# Lib "hugearr.dll" (ByVal hArray%, ByVal el&)
  24.  Declare Function HugeCurrency@ Lib "hugearr.dll" (ByVal hArray%, ByVal el&)
  25.  Declare Function HugeSave& Lib "hugearr.dll" (ByVal hArray%, ByVal NEl&, ByVal RecLen%, ByVal Fn$)
  26.  Declare Function HugeLoad& Lib "hugearr.dll" (ByVal hArray%, ByVal RecLen%, ByVal Fn$)
  27.